{}
{a,b:longint;
	p:pointer;}
var	h:THeapStatus;
	h_fpc:TFPCHeapStatus;
begin
	h:= GetHeapStatus;
	writeln('TotalAddrSpace:', h.TotalAddrSpace);
	writeln('TotalUncommitted:', h.TotalUncommitted);
	writeln('TotalCommitted:', h.TotalCommitted);
	writeln('TotalAllocated:', h.TotalAllocated);
	writeln('TotalFree:', h.TotalFree);
	h_fpc:=GetFPCHeapStatus;
	writeln('MaxHeapSize:', h_fpc.MaxHeapSize);
	writeln('MaxHeapUsed:', h_fpc.MaxHeapUsed);
	writeln('CurrHeapSize:', h_fpc.CurrHeapSize);
	writeln('CurrHeapUsed:', h_fpc.CurrHeapUsed);
	writeln('CurrHeapFree:', h_fpc.CurrHeapFree);
	readln();
end.